home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zn.d64 / proc.xxx'u'data < prev    next >
Text File  |  2007-03-01  |  1KB  |  39 lines
  1. 0010 ╨╥╧├ XXX'U'DATA(TYPE,REP,╥┼╞ VALUES(,),╥┼╞ SCALE$(,),╥┼╞ LABELS$()) ├╠╧╙┼─
  2. 0020   ╔═╨╧╥╘ U'GRAPH
  3. 0030   //┼╬╘┼╥ SCALE$(-,1):X AXIS STRINGS
  4. 0040   ─┴╘┴ ""
  5. 0050   //┼╬╘┼╥ SCALE$(-,2):Y AXIS STRINGS
  6. 0060   ─┴╘┴ ""
  7. 0070   //┼╬╘┼╥ VALUES(,) IN PAIRS
  8. 0080   ─┴╘┴ 0
  9. 0090   //┼╬╘┼╥ LABELS$() DATA
  10. 0100   LABELS$(0)(:20):=""
  11. 0110   LABELS$(1)(:20):="X="
  12. 0120   LABELS$(2)(:20):="Y="
  13. 0130   VALUES(0,2):=1 // 0 FOR ╬╧ ╟╥╔─
  14. 0140   // **** SET SCALE$(,) ****
  15. 0150   ╞╧╥ AXIS:=1 ╘╧ 2 ─╧
  16. 0160     ╥┼┴─ SCALE$(0,AXIS)
  17. 0170     ├┴╙┼ SCALE$(0,AXIS)(1) ╧╞
  18. 0180     ╫╚┼╬ "N"
  19. 0190       ╞╧╥ K:=1 ╘╧ 3 ─╧ ╥┼┴─ SCALE$(K,AXIS)
  20. 0200     ╫╚┼╬ "A"
  21. 0210       ╞╧╥ K:=1 ╘╧ ╓┴╠(SCALE$(0,AXIS)(2:)) ─╧ ╥┼┴─ SCALE$(K,AXIS)
  22. 0220     ╫╚┼╬ "V"
  23. 0230       ╞╧╥ K:=1 ╘╧ (╓┴╠(SCALE$(0,AXIS)(2:)))*2+3 ─╧
  24. 0240         ╥┼┴─ SCALE$(K,AXIS)
  25. 0250       ┼╬─╞╧╥ K
  26. 0260     ┼╬─├┴╙┼ 
  27. 0270   ┼╬─╞╧╥ AXIS
  28. 0280   // **** SET VALUES(,) ****
  29. 0290   NUM:=0
  30. 0300   ╥┼╨┼┴╘ 
  31. 0310     NUM:+1
  32. 0320     ╥┼┴─ VALUES(NUM,1),VALUES(NUM,2)
  33. 0330   ╒╬╘╔╠ ┼╧─
  34. 0340   VALUES(0,1):=NUM
  35. 0350   
  36. 0360   ╔╞ TYPE<>0 ╘╚┼╬ U'GRAPH(TYPE,REP,VALUES(,),SCALE$(,),LABELS$())
  37. 0370 ┼╬─╨╥╧├ 
  38. 0380 
  39.